program salario;
uses
        crt;
var
        nome  : string;
        cargo : string;
        idade    : integer;
        salbruto : real;
        salreajustado: real;

        op: char;

        begin
        op := '0';

        repeat
                clrscr;
                writeln('****************************');
                writeln('* 1 - Dados do Funcionario *');
                writeln('* 2 - Consultar salario    *');
                writeln('* 3 - Finalizar            *');
                writeln('****************************');

                op := readkey;

                case op of
                        '1': begin
                                clrscr;
                                write('Informe o Nome.......: ');
                                readln(nome);
                                write('Informe a Idade......: ');
                                readln(idade);
                                write('Informe o Cargo......: ');
                                readln(cargo);
                                write('Informe o Sal. Bruto.: ');
                                readln(salbruto);
                             end;
                        '2': begin
                                clrscr;
                                writeln('Funcionario...: ', nome  );
                                writeln('Idade.........: ', idade );
                                writeln('Cargo.........: ', cargo );
                                writeln('***************************************************');
                                writeln('Salario Bruto......: R$ ', salbruto:2:2);
                                salreajustado := salbruto * 1.38;
                                writeln('Salario Reajustado.: R$ ', salreajustado:2:2);
                                writeln('Salario Liquido.: R$ ', salreajustado + (salreajustado * 0.20) - (salreajustado * 0.15):2:2);
                                readkey;
                             end;
                end;

        until op = '3';
end.
